#!/usr/bin/perl

$code = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
@b64 = qw (000000 000001 000010 000011 000100 000101 000110 000111
           001000 001001 001010 001011 001100 001101 001110 001111
           010000 010001 010010 010011 010100 010101 010110 010111
           011000 011001 011010 011011 011100 011101 011110 011111
           100000 100001 100010 100011 100100 100101 100110 100111
           101000 101001 101010 101011 101100 101101 101110 101111
           110000 110001 110010 110011 110100 110101 110110 110111
           111000 111001 111010 111011 111100 111101 111110 111111);

$out = "";
foreach $line (@lines)
  {
  $l = int ((length ($line) + 3) / 4);
  for ($p = 0; $p < $l; $p++)
    {
    $t = substr ($line, $p * 4, 4);
    $b = "";
    for ($c = 0; $c < 4; $c++)
      {
      $i = substr ($t, $c, 1);
      $n = index ($code, $i);
      $b .= $b64[$n];
      }
    $out .= pack "B24", $b;
    }
  }

open (FILE, ">image.jpg");
print FILE "$out";
close (FILE);